home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Resources / Online / CheckHTML / S / CheckHTML < prev   
Encoding:
AmigaDOS Script File  |  2000-02-15  |  2.3 KB  |  85 lines
  1. .key FILE,ROOT,QUIET/S
  2. .bra {
  3. .ket }
  4. ;
  5. ; CheckHTML Shell script
  6. ;
  7. ; Copyright © 1997-2000 Dipl.-Inform. Kai Hofmann
  8. ; All rights reserved!
  9. ; Released without any explicit or implicit warranty!
  10. ;
  11. ; EMail: hofmann@hofmann-int.de
  12. ; WWW  : http://www.hofmann-int.de/products/amiga/CheckHTML.shtml
  13. ;
  14. ; $VER: CheckHTML 1.7 (15.02.2000)
  15. ;
  16. IF X EQ "X{FILE}"
  17.   IF X EQ "X{ROOT}"
  18.     requestfile drawersonly title="Select Site-Root directory" drawer `cd` >t:CheckHTMLroot{$$}
  19.     setenv CheckHTMLroot{$$} `SelectString t:CheckHTMLroot{$$} 1`
  20.   ELSE
  21.     setenv CheckHTMLroot{$$} {ROOT}
  22.   ENDIF
  23.   requestfile title="Select HTML files" acceptpattern="#?.(s|%)htm(l|%)" multiselect noicons >t:CheckHTMLfiles{$$}
  24.   IF NOT Warn
  25.     CountStrings t:CheckHTMLfiles{$$} TO ENV:CheckHTMLnums{$$}
  26.     LAB loop
  27.     IF NOT $CheckHTMLnums{$$} EQ 0 VAL
  28.       CheckHTML `SelectString t:CheckHTMLfiles{$$} $CheckHTMLnums{$$}` $CheckHTMLroot{$$} {QUIET}
  29.       eval $CheckHTMLnums{$$} -1 to env:CheckHTMLnums{$$}
  30.       skip loop back
  31.     ENDIF
  32.     delete ENV:CheckHTMLnums{$$} QUIET
  33.   ENDIF
  34.   delete t:CheckHTMLfiles{$$} env:CheckHTMLroot{$$} QUIET
  35.   IF NOT {QUIET}
  36.     echo "*nFinished"
  37.   ENDIF
  38.   QUIT 0
  39. ENDIF
  40.  
  41. IF X EQ "X{ROOT}"
  42.   cd >env:CheckHTMLroot{$$}
  43. ELSE
  44.   setenv CheckHTMLroot{$$} {ROOT}
  45. ENDIF
  46. IF NOT {QUIET}
  47.   echo "Checking {FILE}"
  48. ENDIF
  49. echo "{FILE}" >t:CheckHTML{$$}.tmp
  50. search t:CheckHTML{$$}.tmp #?.shtml pattern quiet >NIL:
  51. IF not warn
  52.   delete t:CheckHTML{$$}.tmp quiet
  53.   rx CheckHTML.rexx {FILE} t:CheckHTML{$$}.tmp $CheckHTMLroot{$$}
  54.   search t:CheckHTML{$$}.tmp DOCTYPE QUIET >NIL:
  55.   IF warn
  56.     echo "No DOCTYPE found for {FILE}"
  57.     echo "Please add the following line to the top of your SHTML document first:"
  58.     echo "<!DOCTYPE HTML PUBLIC *"-//W3C//DTD HTML 4.01 Transitional//EN*">"
  59.   ELSE
  60.     FAILAT 10
  61.     sgmls sgml:HTML.decl t:CheckHTML{$$}.tmp >NIL:
  62.     IF not warn
  63.       IF NOT {QUIET}
  64.         echo "Ok"
  65.       ENDIF
  66.     ENDIF
  67.   ENDIF
  68. ELSE
  69.   search "{FILE}" DOCTYPE QUIET >NIL:
  70.   IF warn
  71.     echo "No DOCTYPE found for {FILE}"
  72.     echo "Please add the following line to the top of your HTML document first:"
  73.     echo "<!DOCTYPE HTML PUBLIC *"-//W3C//DTD HTML 4.01 Transitional//EN*">"
  74.   ELSE
  75.     FAILAT 21
  76.     sgmls sgml:HTML.decl {FILE} >NIL:
  77.     IF not warn
  78.       IF NOT {QUIET}
  79.         echo "Ok"
  80.       ENDIF
  81.     ENDIF
  82.   ENDIF
  83. ENDIF
  84. delete t:CheckHTML{$$}.tmp quiet
  85.